﻿Public NotInheritable Class FrmAbout
    

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub LnkHomepage_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LnkHomepage.LinkClicked
        Process.Start("http://code.google.com/p/bandyt-bits")
    End Sub

    Private Sub LnkTroubleshoot_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LnkTroubleshoot.LinkClicked
        Process.Start("http://code.google.com/p/bandyt-bits/issues/list")
    End Sub

    Private Sub FrmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LblVersion.Text = "Version " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
    End Sub
End Class
